This is the introduction. All code is loaded here and saved as rhc_aug so this is the data name we will use for all data. Right now we have not included aug data, so we need to do that and then update other chucks that rn use rhc_clean. note to self: Eval parameter is whether to evaluate/run your chunk of code Echo parameter is whether to print the code
rhc_clean |> mutate(sex = factor(sex),
swang1 = factor(swang1),
death = factor(x = death, levels = c(0,1), c("Alive","Dead"))) |>
table1(x = formula(~ sex + age + race + swang1 | death),
data = _)| Alive (N=2013) |
Dead (N=3722) |
Overall (N=5735) |
|
|---|---|---|---|
| sex | |||
| Female | 919 (45.7%) | 1624 (43.6%) | 2543 (44.3%) |
| Male | 1094 (54.3%) | 2098 (56.4%) | 3192 (55.7%) |
| age | |||
| Mean (SD) | 56.5 (17.4) | 64.0 (15.7) | 61.4 (16.7) |
| Median [Min, Max] | 58.0 [18.0, 102] | 66.0 [18.0, 101] | 64.0 [18.0, 102] |
| race | |||
| black | 332 (16.5%) | 588 (15.8%) | 920 (16.0%) |
| other | 127 (6.3%) | 228 (6.1%) | 355 (6.2%) |
| white | 1554 (77.2%) | 2906 (78.1%) | 4460 (77.8%) |
| swang1 | |||
| No RHC | 1315 (65.3%) | 2236 (60.1%) | 3551 (61.9%) |
| RHC | 698 (34.7%) | 1486 (39.9%) | 2184 (38.1%) |

R for Bio Data Science